"0","```r
dissimColors <- gray.colors(30, start = 0.9, end = 0.1, gamma = 2.2, alpha = NULL)
ages <- as.numeric(rownames(scpdSM))
ageColors <- rainbow(length(ages), start=0, end=4/6)
heatmap(scpdSM, col=dissimColors, distfun=function(m) vegdist(m,method=\"bray\"), hclustfun=function(m) hclust(m, method=\"average\"), RowSideColors = ageColors)
```"
